home *** CD-ROM | disk | FTP | other *** search
/ Mastering Microsoft Visual Basic 5 / Mastering Microsoft Visual Basic 5.ISO / demo code / ch11 / winsock1 / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1996-09-11  |  815 b   |  33 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Public strState(9) As String
  5.  
  6. Public Sub InitializeConnectionInfo()
  7.   Static bInited As Boolean
  8.   If bInited Then Exit Sub  'Do initialization only once
  9.   
  10.   ' Init Connection Strings
  11.   strState(0) = "Closed"
  12.   strState(1) = "Open"
  13.   strState(2) = "Listening"
  14.   strState(3) = "Connection Pending"
  15.   strState(4) = "Resolving Host"
  16.   strState(5) = "Host Resolved"
  17.   strState(6) = "Connecting"
  18.   strState(7) = "Connected"
  19.   strState(8) = "Closing"
  20.   strState(9) = "Error"
  21.   
  22.   bInited = True
  23. End Sub
  24.  
  25. Public Sub SetProtocolCombobox(cbo As ComboBox)
  26.   Dim index
  27.   cbo.AddItem "TCP Protocol"
  28.   cbo.ItemData(cbo.NewIndex) = sckTCPProtocol
  29.   cbo.AddItem "UDP Protocol"
  30.   cbo.ItemData(cbo.NewIndex) = sckUDPProtocol
  31.   cbo.ListIndex = 0
  32. End Sub
  33.